home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Snippets / Files / SFGetFolder Pascal / GetFolder README next >
Encoding:
Text File  |  1992-07-15  |  542 b   |  15 lines  |  [TEXT/ttxt]
  1. StandardGetFolder in Think Pascal
  2. Greg Robbins 5/92
  3.  
  4. Revised version 6/92
  5.  
  6. GetFolder is a Think Pascal unit which displays a folder selection dialog in accordance with the Human Interface note on folder selection.
  7.  
  8. The routine uses the CustomGetFile call and thus requires System 7.
  9.  
  10. The interface is
  11.  PROCEDURE StandardGetFolder (var theSFR: StandardFileReply);
  12.  
  13. The sample program simply calls StandardGetFolder and then prints out the contents of the reply record.
  14.  
  15. Credits: Design by Elizabeth Moller et al, resources by Steve Falkenburg.